home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
ravelutl.zip
/
RAVLWIND.ZIP
/
W.MA
< prev
next >
Wrap
Text File
|
1990-04-26
|
972b
|
56 lines
@include \mbin\mh\wind.mh
#
#
# Demo of basic window types.
#
# Mos controller windows.
# Output windows.
#
int outwd
riff openWindows()
# 3 kinds of mos basic controller windows
void mosWindow(WVCO,0,0)
void mosWindow(WTIME,0,35)
void mosWindow(WRCC,0,60)
# 2 kinds of output/printf/debug windows
void outputWindow(WDEBUG,10,0,15,25,"printf") # halfway
outwd = outputWindow(WDISPLAY,16,10,18,30,"chord")
end
vco testit()
int rval
void openWindows()
for(;;)
mchoose(C,D,E,F,G,A,B,HC) q
rval = mchoose(0,1,2)
switch(rval)
case 0:
void printf("how the BLAZES are you today anyway\n")
void wprintf(outwd,"C chord")
end
case 1:
void printf("curioser and curioser\n")
void wprintf(outwd,"D chord")
end
case 2:
void dumptime()
void printf("what, me worry?\n")
void wprintf(outwd,"E chord")
end
end
end
end
vco second
for(;;)
LE w
LD w
LC w
end
end